#!
sub print_args
{
	print join("\n",@_);
}
sub Love
{
	my ($boy,$girl)=@_;
	print "$boy love $girl";
}
sub moonweight
{
	my ($weight) = @_;
	return ($weight/6);
}
$weight = 150;
print "weight on the earth:$weight\n";
print "weight on the moon:"; print moonweight($weight);